home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Utilities
/
Programming
/
MT2ToolKit 1.0b1
/
Trivial
/
MakeMenu.Trivial
< prev
next >
Wrap
Text File
|
1995-09-23
|
540b
|
25 lines
{%% Generation option: -m}
PROCEDURE DoMakeMenus;
var
menuBar: Handle;
BEGIN
menuBar:=GetNewMBar(MBARID); {read menus and menu bar}
IF menuBar<>NIL
THEN
BEGIN
SetMenuBar(menuBar); {insert menus into the current menu list}
DisposHandle(menuBar);
AddResMenu(GetMHandle({%%*}),'DRVR'); {add desktop items in Apple Menu
Items folder to Apple menu}
{%% >> adjust items and enabled state of menus <<}
DrawMenuBar; {draw the menu bar}
END;
END; {DoMakeMenus}